www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminKernel\D_ajax_do_b.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <% dir_set="../../" Server.ScriptTimeout=9999999 session.timeout=600 %> <!--#include file=../../inc/conn.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <% set filea=new Cls_FSO set fileb=new DosAsp per=2 ended=0 status1="ok" aaaaaw12221="系"&"统"&"文"&"件"&"已"&"被"&"破"&"坏,请"&"与"&"本"&"系"&"统"&"作"&"者"&"联"&"系" if request("pos")="" then set a11=new DosAsp '如果nd_x_del_www_before_publish=1则生成前台时先清空前台目录 if nd_x_del_www_before_publish=1 then if (a11.Rd(server.mappath("../../"&nd_web_output_folder_qiye)))<>true then status1="delete_main_shibai_"&nd_web_output_folder end if end if call createfile("../../"&nd_web_output_folder_qiye&"/test.asp","1111",true) call deletefile("../../"&nd_web_output_folder_qiye&"/test.asp") conn.execute("delete from ND_templates_error_label_list_cache") Const JET_3X = 4 Function CompactDB(dbPath, boolIs97) '-------------------new code1-------------------- '重要 on error resume next '-------------------new code1-------------------- Dim fso, Engine, strDBPath strDBPath = left(dbPath,instrrev(DBPath,"")) Set fso = CreateObject(fssoo_nd_var_str_x_customx) '-------------------new code2-------------------- if fso.FileExists(strDBPath & "temp.mdb") then fso.DeleteFile(strDBPath & "temp.mdb") end if '-------------------new code2-------------------- If fso.FileExists(dbPath) Then Set Engine = CreateObject("JRO.JetEngine") If boolIs97 = "True" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" End If fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing CompactDB = "你的数据库 " & dbpath & " 已经压缩完毕" & vbCrLf Else CompactDB = "The database name or path has not been found. Try Again" & vbCrLf End If End Function If IsObject(conn) Then conn.Close Set conn = Nothing End If call CompactDB(Server.MapPath(dir_set&main_data_mdb), "-1") call OpenConn() sql="" else sql=" where id>"&request("pos") end if %> <% set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from ND_templates_list_cache "&sql&" order by id asc",conn,1,1 execute("aaerweee1e11=aaa"&"aaw1"&"2221") for icmpt=1 to per if rs1.eof then ended=1 exit for end if now_pos1=rs1("id") path1=rs1("template_full_path_filename") if instr(1,path1,"{",1)=0 and instr(1,path1,"}",1)=0 then set rs112=server.CreateObject("adodb.recordset") rs112.open "select * from ND_templates_folder_reg_qiye where is_default_template=true",conn,1,1 if rs112.eof then status1="没有设置默认模板" ppath="templates/"&rs112("templates_folder_path_name")&"/" if rs1("is_template_or_other")="1" then if rs1("is_too_big_template")="0" then cont11=loadfile("../../"&ppath&path1) complie_dir="" cpml_is_cms=0 cont11=replace_label_main(cont11,ppath&path1) call createfile("../../"&nd_web_output_folder_qiye&"/"&path1,cont11,true) else call createfile("../../"&nd_web_output_folder_qiye&"/"&path1,"1111",true) call deletefile("../../"&nd_web_output_folder_qiye&"/"&path1) if filea.CopyAFile(server.mappath("../../"&ppath&path1), server.mappath("../../"&nd_web_output_folder_qiye&"/"&path1))<>1 then status1="template file(too_big_template) copy shibai" end if end if else call createfile("../../"&nd_web_output_folder_qiye&"/"&path1,"1111",true) call deletefile("../../"&nd_web_output_folder_qiye&"/"&path1) if filea.CopyAFile(server.mappath("../../"&ppath&path1), server.mappath("../../"&nd_web_output_folder_qiye&"/"&path1))<>1 then status1="other file(not template) copy shibai" end if end if end if rs1.movenext next rs1.close set rs1=nothing response.ContentType="text/xml" response.write "<?xml version=""1.0"" encoding=""gb2312""?>" response.write "<aaaa>" response.write "<affff><![CDATA["&ended response.write "]]></affff><affff2><![CDATA["&now_pos1&"]]></affff2><affff5><![CDATA["&left((path1),235)&"]]></affff5><affff6><![CDATA["&status1&"]]></affff6></aaaa>" %>